﻿Public Class Form1
    Dim acceso As New acceso()
    

    Private Sub ProductosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ProductosToolStripMenuItem.Click
        Dim abmProducto As New ABMProductos()
        abmProducto.ShowDialog()
    End Sub

    Private Sub EmpleadosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EmpleadosToolStripMenuItem.Click
        Dim abmEmpleados As New ABM_Empleado()
        abmEmpleados.ShowDialog()
    End Sub

    Private Sub ProveedoresToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ProveedoresToolStripMenuItem.Click
        Dim abmProveedores As New ABM_Proveedores()
        abmProveedores.ShowDialog()
    End Sub

    Private Sub ProductoPorProveedorToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProductoPorProveedorToolStripMenuItem.Click
        Dim abmProductoXProveedor As New ABM_ProductoXProveedor()
        abmProductoXProveedor.ShowDialog()
    End Sub

    Private Sub ClientesToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem.Click
        Dim abmClientes As New ABM_Cliente()
        abmClientes.ShowDialog()

    End Sub

    Private Sub GestionPedidosToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        'Dim Gestion_Pedido As New Gestion_Pedido()
        'Gestion_Pedido.ShowDialog()

    End Sub

    Private Sub OrdenDeCompraToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OrdenDeCompraToolStripMenuItem.Click
        Dim ordenDeCompra As New Consultar_Orden_de_Compra()
        ordenDeCompra.ShowDialog()
    End Sub


    Private Sub VentaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VentaToolStripMenuItem.Click
        Dim venta As New Venta()
        venta.ShowDialog()
    End Sub

    Private Sub ProductosToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles ProductosToolStripMenuItem1.Click
        Dim listProd As New Listado_Productos()
        listProd.ShowDialog()
    End Sub

    Private Sub OrdenesDeComprasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OrdenesDeComprasToolStripMenuItem.Click
        Dim listOrdenesCompras As New Listado_Ordenes_de_Compra()
        listOrdenesCompras.ShowDialog()
    End Sub

    Private Sub ClientesToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClientesToolStripMenuItem1.Click
        Dim listClient As New Listado_Clientes()
        listClient.ShowDialog()
    End Sub

    Private Sub ProveedoresToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProveedoresToolStripMenuItem1.Click
        Dim listProv As New Lista_Proveedores()
        listProv.ShowDialog()
    End Sub

    Private Sub ComprasDeClientesToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles ComprasDeClientesToolStripMenuItem.Click
        Dim EstCompClientes As New Estadisticas_Clientes_Compras()
        EstCompClientes.ShowDialog()
    End Sub

    Private Sub CantidadDeProductosCompradosToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles CantidadDeProductosCompradosToolStripMenuItem.Click
        Dim EstOrdXProducto As New Est_Ordenes_X_Producto()
        EstOrdXProducto.ShowDialog()
    End Sub

    Private Sub CantidadDeProductosCompradosToolStripMenuItem1_Click(sender As System.Object, e As System.EventArgs) Handles CantidadDeProductosCompradosToolStripMenuItem1.Click
        Dim EstProdVendidos As New Est_Productos_Vendidos()
        EstProdVendidos.ShowDialog()
    End Sub

    Private Sub CantidadDeVentasPorDiaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CantidadDeVentasPorDiaToolStripMenuItem.Click
        Dim ventasxdia As New Ventas_por_Dia()
        ventasxdia.ShowDialog()

    End Sub

    Private Sub FacturasToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FacturasToolStripMenuItem.Click
        Dim ListFactura As New Listado_Facturas()
        ListFactura.ShowDialog()
    End Sub
End Class
